home *** CD-ROM | disk | FTP | other *** search
/ The Big Mouth 10 / Big_Mouth_The_10_1996_-_Side_B.d64 / robospy (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  55 lines
  1. 5 rem ** robospy **
  2. 10 poke 53280,5:poke 53281,11:poke 646,15
  3. 15 let sp=0.4
  4. 20 let h$="sonic rulz!"
  5. 25 let h=100
  6. 30 let k=0:let s=0:let l=1
  7. 40 printchr$(147)
  8. 50 print"";tab(11);" *** robospy *** "
  9. 55 print"instructions : (l) for left"
  10. 56 printtab(15)"(r) for right"
  11. 60 print"";tab(10);"press space to begin"
  12. 70 get c$
  13. 80 if c$<>chr$(32) then goto 70
  14. 90 print chr$(147):print:print
  15. 100 if k=5 then let l=l+1:let k=0
  16. 110 let m$=""
  17. 120 let c$=""
  18. 130 for t=1 to l
  19. 140 let n=rnd(1)
  20. 150 if n>0.5 then print"left":let m$=m$+"l"
  21. 160 if n<0.5 then print"right":let m$=m$+"r"
  22. 170 next t
  23. 180 let k=k+1
  24. 190 for d=1 to 200*l*sp
  25. 200 get c$
  26. 210 next d
  27. 220 print chr$(147):print:print
  28. 230 let e=0
  29. 240 print"what are the directions"
  30. 250 for t=1 to l
  31. 260 print"?";
  32. 270 get c$
  33. 280 if c$<>"r"and c$<>"l"then goto 270
  34. 290 print c$
  35. 300 if c$<>mid$(m$,t,1) then let e=1
  36. 310 next t
  37. 320 if e=0 then let s=s+l
  38. 340 if e=1 then print"you lost him!some spy!"
  39. 350 print"score = ";s
  40. 360 print"high score =";h;"by ";h$
  41. 365 if e=1 and s>hthen let h=s:gosub 410
  42. 370 if e=1 then fort=1 to 1000:next:goto 500
  43. 380 for d=1 to 500*sp
  44. 390 next d
  45. 400 goto 90
  46. 410 print"that is the high score!"
  47. 420 print"please type your name"
  48. 430 input h$:return
  49. 499 :
  50. 500 rem ** another one in the house **
  51. 505 print"do you want to play another??? ";
  52. 510 get a$:if a$="y" then 30
  53. 520 if a$<>"n" then 510
  54. 530 print a$:fort=1 to 1000:next:load"the main menu/bm",8,1
  55.